home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / ft_rentr.zip / ENTER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-17  |  24KB  |  967 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     If (Exist(PPEPath() + "ENTER.DAT")) Then
  30.         FOpen 1, PPEPath() + "ENTER.DAT", 0, 0
  31.         FGet 1, STRING007
  32.         FGet 1, STRING002
  33.         FClose 1
  34.     Endif
  35.     STRING006 = STRING007
  36.     If (STRING006 == "A") Goto LABEL001
  37.     If (STRING006 == "B") Goto LABEL002
  38.     If (STRING006 == "C") Goto LABEL003
  39.     If (STRING006 == "D") Goto LABEL004
  40.     If (STRING006 == "E") Goto LABEL005
  41.     If (STRING006 == "F") Goto LABEL006
  42.     If (STRING006 == "G") Goto LABEL007
  43.     If (STRING006 == "H") Goto LABEL008
  44.     If (STRING006 == "I") Goto LABEL009
  45.     :LABEL001
  46.     Select Case (STRING002)
  47.         Case 1
  48.             STRING003 = "@X08"
  49.             STRING004 = "@X01"
  50.             STRING005 = "@X09"
  51.         Case 2
  52.             STRING003 = "@X08"
  53.             STRING004 = "@X02"
  54.             STRING005 = "@X0A"
  55.         Case 3
  56.             STRING003 = "@X08"
  57.             STRING004 = "@X03"
  58.             STRING005 = "@X0B"
  59.         Case 4
  60.             STRING003 = "@X08"
  61.             STRING004 = "@X04"
  62.             STRING005 = "@X0C"
  63.         Case 5
  64.             STRING003 = "@X08"
  65.             STRING004 = "@X05"
  66.             STRING005 = "@X0D"
  67.         Case 6
  68.             STRING003 = "@X08"
  69.             STRING004 = "@X06"
  70.             STRING005 = "@X0E"
  71.         Case "7"
  72.             STRING003 = "@X08"
  73.             STRING004 = "@X07"
  74.             STRING005 = "@X0F"
  75.     End Select
  76.     STRING001 = Upper(Inkey())
  77.     If (STRING001 == Chr(13)) Goto LABEL010
  78.     Print "@POS:30@" + STRING003 + "." + STRING004 + "o" + STRING005 + "O Press Enter O" + STRING004 + "o" + STRING003 + "."
  79.     Backup 19
  80.     Delay 3
  81.     STRING001 = Upper(Inkey())
  82.     If (STRING001 == Chr(13)) Goto LABEL010
  83.     Print "@POS:30@" + STRING003 + "." + STRING004 + "o" + STRING005 + "O " + STRING004 + "Press Enter " + STRING005 + "O" + STRING004 + "o" + STRING003 + "."
  84.     Backup 19
  85.     Delay 3
  86.     STRING001 = Upper(Inkey())
  87.     If (STRING001 == Chr(13)) Goto LABEL010
  88.     Print "@POS:30@" + STRING004 + "." + STRING004 + "o" + STRING005 + "O " + STRING003 + "Press Enter " + STRING005 + "O" + STRING004 + "o."
  89.     Backup 19
  90.     Delay 3
  91.     STRING001 = Upper(Inkey())
  92.     If (STRING001 == Chr(13)) Goto LABEL010
  93.     Print "@POS:30@" + STRING003 + "." + STRING004 + "o" + STRING005 + "O Press Enter " + STRING005 + "O" + STRING004 + "o" + STRING003 + "."
  94.     Backup 19
  95.     Delay 3
  96.     STRING001 = Upper(Inkey())
  97.     If (STRING001 == Chr(13)) Goto LABEL010
  98.     Backup 20
  99.     Goto LABEL001
  100.     :LABEL002
  101.     Select Case (STRING002)
  102.         Case 1
  103.             STRING003 = "@X08"
  104.             STRING004 = "@X01"
  105.             STRING005 = "@X09"
  106.         Case 2
  107.             STRING003 = "@X08"
  108.             STRING004 = "@X02"
  109.             STRING005 = "@X0A"
  110.         Case 3
  111.             STRING003 = "@X08"
  112.             STRING004 = "@X03"
  113.             STRING005 = "@X0B"
  114.         Case 4
  115.             STRING003 = "@X08"
  116.             STRING004 = "@X04"
  117.             STRING005 = "@X0C"
  118.         Case 5
  119.             STRING003 = "@X08"
  120.             STRING004 = "@X05"
  121.             STRING005 = "@X0D"
  122.         Case 6
  123.             STRING003 = "@X08"
  124.             STRING004 = "@X06"
  125.             STRING005 = "@X0E"
  126.         Case "7"
  127.             STRING003 = "@X08"
  128.             STRING004 = "@X07"
  129.             STRING005 = "@X0F"
  130.     End Select
  131.     STRING001 = Upper(Inkey())
  132.     If (STRING001 == Chr(13)) Goto LABEL010
  133.     Print "@POS:30@" + STRING005 + "." + STRING004 + "." + STRING003 + ".Press Enter." + STRING004 + "." + STRING005 + "."
  134.     Backup 19
  135.     Delay 4
  136.     STRING001 = Upper(Inkey())
  137.     If (STRING001 == Chr(13)) Goto LABEL010
  138.     Print "@POS:30@" + STRING004 + "." + STRING005 + "." + STRING004 + "." + STRING003 + "Press Enter" + STRING004 + "." + STRING005 + "." + STRING004 + "."
  139.     Backup 19
  140.     Delay 4
  141.     STRING001 = Upper(Inkey())
  142.     If (STRING001 == Chr(13)) Goto LABEL010
  143.     Print "@POS:30@" + STRING003 + "." + STRING004 + "." + STRING005 + "." + STRING004 + "" + STRING003 + "Press Enter" + STRING005 + "." + STRING004 + "." + STRING003 + "."
  144.     Backup 19
  145.     Delay 4
  146.     STRING001 = Upper(Inkey())
  147.     If (STRING001 == Chr(13)) Goto LABEL010
  148.     Print "@POS:30@" + STRING003 + ".." + STRING004 + "." + STRING003 + "Press Enter" + STRING004 + "." + STRING003 + ".." + STRING004 + ""
  149.     Backup 19
  150.     Delay 4
  151.     STRING001 = Upper(Inkey())
  152.     If (STRING001 == Chr(13)) Goto LABEL010
  153.     Backup 20
  154.     Goto LABEL002
  155.     :LABEL003
  156.     Select Case (STRING002)
  157.         Case 1
  158.             STRING003 = "@X08"
  159.             STRING004 = "@X01"
  160.             STRING005 = "@X09"
  161.         Case 2
  162.             STRING003 = "@X08"
  163.             STRING004 = "@X02"
  164.             STRING005 = "@X0A"
  165.         Case 3
  166.             STRING003 = "@X08"
  167.             STRING004 = "@X03"
  168.             STRING005 = "@X0B"
  169.         Case 4
  170.             STRING003 = "@X08"
  171.             STRING004 = "@X04"
  172.             STRING005 = "@X0C"
  173.         Case 5
  174.             STRING003 = "@X08"
  175.             STRING004 = "@X05"
  176.             STRING005 = "@X0D"
  177.         Case 6
  178.             STRING003 = "@X08"
  179.             STRING004 = "@X06"
  180.             STRING005 = "@X0E"
  181.         Case "7"
  182.             STRING003 = "@X08"
  183.             STRING004 = "@X07"
  184.             STRING005 = "@X0F"
  185.     End Select
  186.     STRING001 = Upper(Inkey())
  187.     If (STRING001 == Chr(13)) Goto LABEL010
  188.     Print "@POS:30@" + STRING005 + "- " + STRING004 + "Press Enter " + STRING005 + "-"
  189.     STRING001 = Upper(Inkey())
  190.     If (STRING001 == Chr(13)) Goto LABEL010
  191.     Backup 16
  192.     Delay 3
  193.     STRING001 = Upper(Inkey())
  194.     If (STRING001 == Chr(13)) Goto LABEL010
  195.     Print "@POS:30@" + STRING005 + "\ " + STRING004 + "Press Enter " + STRING005 + "/"
  196.     Backup 16
  197.     Delay 3
  198.     STRING001 = Upper(Inkey())
  199.     If (STRING001 == Chr(13)) Goto LABEL010
  200.     Print "@POS:30@" + STRING005 + "| " + STRING004 + "Press Enter " + STRING005 + "|"
  201.     Backup 16
  202.     Delay 3
  203.     STRING001 = Upper(Inkey())
  204.     If (STRING001 == Chr(13)) Goto LABEL010
  205.     Print "@POS:30@" + STRING005 + "/ " + STRING004 + "Press Enter " + STRING005 + "\"
  206.     Backup 16
  207.     Delay 3
  208.     STRING001 = Upper(Inkey())
  209.     If (STRING001 == Chr(13)) Goto LABEL010
  210.     Backup 17
  211.     Goto LABEL003
  212.     :LABEL004
  213.     Select Case (STRING002)
  214.         Case 1
  215.             STRING003 = "@X08"
  216.             STRING004 = "@X01"
  217.             STRING005 = "@X09"
  218.         Case 2
  219.             STRING003 = "@X08"
  220.             STRING004 = "@X02"
  221.             STRING005 = "@X0A"
  222.         Case 3
  223.             STRING003 = "@X08"
  224.             STRING004 = "@X03"
  225.             STRING005 = "@X0B"
  226.         Case 4
  227.             STRING003 = "@X08"
  228.             STRING004 = "@X04"
  229.             STRING005 = "@X0C"
  230.         Case 5
  231.             STRING003 = "@X08"
  232.             STRING004 = "@X05"
  233.             STRING005 = "@X0D"
  234.         Case 6
  235.             STRING003 = "@X08"
  236.             STRING004 = "@X06"
  237.             STRING005 = "@X0E"
  238.         Case "7"
  239.             STRING003 = "@X08"
  240.             STRING004 = "@X07"
  241.             STRING005 = "@X0F"
  242.     End Select
  243.     STRING001 = Upper(Inkey())
  244.     If (STRING001 == Chr(13)) Goto LABEL010
  245.     Print "@POS:30@@X08■■■Press Enter■■■"
  246.     Backup 17
  247.     Delay 2
  248.     STRING001 = Upper(Inkey())
  249.     If (STRING001 == Chr(13)) Goto LABEL010
  250.     Print "@POS:30@@X08" + STRING004 + "■@X08■■Press Enter■■" + STRING004 + "■"
  251.     Backup 17
  252.     Delay 2
  253.     STRING001 = Upper(Inkey())
  254.     If (STRING001 == Chr(13)) Goto LABEL010
  255.     Print "@POS:30@@X08" + STRING005 + "■" + STRING004 + "■@X08■Press Enter■" + STRING004 + "■" + STRING005 + "■"
  256.     Backup 17
  257.     Delay 2
  258.     STRING001 = Upper(Inkey())
  259.     If (STRING001 == Chr(13)) Goto LABEL010
  260.     Print "@POS:30@@X08@X0F■" + STRING005 + "■" + STRING004 + "■@X08Press Enter" + STRING004 + "■" + STRING005 + "■@X0F■"
  261.     Backup 17
  262.     Delay 2
  263.     STRING001 = Upper(Inkey())
  264.     If (STRING001 == Chr(13)) Goto LABEL010
  265.     Print "@POS:30@" + STRING005 + "■@X0F■" + STRING005 + "■" + STRING004 + "P@X08ress Ente" + STRING004 + "r" + STRING005 + "■" + "@X0F■" + STRING005 + "■"
  266.     Backup 17
  267.     Delay 2
  268.     STRING001 = Upper(Inkey())
  269.     If (STRING001 == Chr(13)) Goto LABEL010
  270.     Print "@POS:30@" + STRING004 + "■" + STRING005 + "■@X0F■" + STRING005 + "P" + STRING004 + "r@X08ess Ent@X07" + STRING004 + "e" + STRING005 + "r@X0F■" + STRING005 + "■" + STRING004 + "■"
  271.     Backup 17
  272.     Delay 2
  273.     STRING001 = Upper(Inkey())
  274.     If (STRING001 == Chr(13)) Goto LABEL010
  275.     Print "@POS:30@@X08■" + STRING004 + "■" + STRING005 + "■@X0FP" + STRING005 + "r" + STRING004 + "e@X08ss En" + STRING004 + "t" + STRING005 + "e@X0Fr" + STRING005 + "■" + STRING004 + "■@X08■"
  276.     Backup 17
  277.     Delay 2
  278.     STRING001 = Upper(Inkey())
  279.     If (STRING001 == Chr(13)) Goto LABEL010
  280.     Print "@POS:30@@X08■■" + STRING004 + "■" + STRING005 + "P@X0Fr" + STRING005 + "e" + STRING004 + "s@X08s E@X07" + STRING004 + "n" + STRING005 + "t@X0Fe" + STRING005 + "r" + STRING004 + "■@X08■■"
  281.     Backup 17
  282.     Delay 2
  283.     STRING001 = Upper(Inkey())
  284.     If (STRING001 == Chr(13)) Goto LABEL010
  285.     Print "@POS:30@@X08■■■" + STRING004 + "P" + STRING005 + "r@X0Fe" + STRING005 + "s" + STRING004 + "s@X08 " + STRING004 + "E" + STRING005 + "n@X0Ft" + STRING005 + "e" + STRING004 + "r@X08■■■"
  286.     Backup 17
  287.     Delay 2
  288.     STRING001 = Upper(Inkey())
  289.     If (STRING001 == Chr(13)) Goto LABEL010
  290.     Print "@POS:30@@X08■■■P" + STRING004 + "r" + STRING005 + "e@X0Fs" + STRING005 + "s E@X0Fn" + STRING005 + "t" + STRING004 + "e@X08r■■■@X07"
  291.     Backup 17
  292.     Delay 2
  293.     STRING001 = Upper(Inkey())
  294.     If (STRING001 == Chr(13)) Goto LABEL010
  295.     Print "@POS:30@@X08■■■Pr" + STRING004 + "e" + STRING005 + "s@X0Fs E" + STRING005 + "n" + STRING004 + "t@X08er■■■@X07"
  296.     Backup 17
  297.     Delay 2
  298.     STRING001 = Upper(Inkey())
  299.     If (STRING001 == Chr(13)) Goto LABEL010
  300.     Print "@POS:30@@X08■■■Pre" + STRING004 + "s" + STRING005 + "s E" + STRING004 + "n@X08ter■■■"
  301.     Backup 17
  302.     Delay 2
  303.     STRING001 = Upper(Inkey())
  304.     If (STRING001 == Chr(13)) Goto LABEL010
  305.     Print "@POS:30@@X08■■■Pres" + STRING004 + "s E@X08nter■■■"
  306.     Backup 17
  307.     Delay 2
  308.     STRING001 = Upper(Inkey())
  309.     If (STRING001 == Chr(13)) Goto LABEL010
  310.     Print "@POS:30@@X08■■■Pre" + STRING004 + "s" + STRING005 + "s E" + STRING004 + "n@X08ter■■■"
  311.     Backup 17
  312.     Delay 2
  313.     STRING001 = Upper(Inkey())
  314.     If (STRING001 == Chr(13)) Goto LABEL010
  315.     Print "@POS:30@@X08■■■Pr" + STRING004 + "e" + STRING005 + "s@X0Fs E" + STRING005 + "n" + STRING004 + "t@X08er■■■"
  316.     Backup 17
  317.     Delay 2
  318.     STRING001 = Upper(Inkey())
  319.     If (STRING001 == Chr(13)) Goto LABEL010
  320.     Print "@POS:30@@X08■■■P" + STRING004 + "r" + STRING005 + "e@X0Fs" + STRING005 + "s E@X0Fn" + STRING005 + "t" + STRING004 + "e@X08r■■■@X07"
  321.     Backup 17
  322.     Delay 2
  323.     STRING001 = Upper(Inkey())
  324.     If (STRING001 == Chr(13)) Goto LABEL010
  325.     Print "@POS:30@@X08■■■" + STRING004 + "P" + STRING005 + "r@X0Fe" + STRING005 + "s" + STRING004 + "s E" + STRING005 + "n@X0Ft" + STRING005 + "e" + STRING004 + "r@X08■■■"
  326.     Backup 17
  327.     Delay 2
  328.     STRING001 = Upper(Inkey())
  329.     If (STRING001 == Chr(13)) Goto LABEL010
  330.     Print "@POS:30@@X08■■" + STRING004 + "■" + STRING005 + "P@X0Fr" + STRING005 + "e" + STRING004 + "s@X08s E" + STRING004 + "n" + STRING005 + "t@X0Fe" + STRING005 + "r" + STRING004 + "■@X08■■"
  331.     Backup 17
  332.     Delay 2
  333.     STRING001 = Upper(Inkey())
  334.     If (STRING001 == Chr(13)) Goto LABEL010
  335.     Print "@POS:30@@X08■" + STRING004 + "■" + STRING005 + "■@X0FP" + STRING005 + "r" + STRING004 + "e@X08ss En" + STRING004 + "t" + STRING005 + "e@X0Fr" + STRING005 + "■" + STRING004 + "■@X08■"
  336.     Backup 17
  337.     Delay 2
  338.     STRING001 = Upper(Inkey())
  339.     If (STRING001 == Chr(13)) Goto LABEL010
  340.     Print "@POS:30@" + STRING004 + "■" + STRING005 + "■@X0F■" + STRING005 + "P" + STRING004 + "r@X08ess Ent" + STRING004 + "e" + STRING005 + "r@X0F■" + STRING005 + "■" + STRING004 + "■"
  341.     Backup 17
  342.     Delay 2
  343.     STRING001 = Upper(Inkey())
  344.     If (STRING001 == Chr(13)) Goto LABEL010
  345.     Print "@POS:30@" + STRING005 + "■@X0F■" + STRING005 + "■" + STRING004 + "P@X08ress Ente" + STRING004 + "r" + STRING005 + "■@X0F■" + STRING005 + "■"
  346.     Backup 17
  347.     Delay 2
  348.     STRING001 = Upper(Inkey())
  349.     If (STRING001 == Chr(13)) Goto LABEL010
  350.     Print "@POS:30@@X0F■" + STRING005 + "■" + STRING004 + "■@X08Press Enter" + STRING004 + "■" + STRING005 + "■@X0F■"
  351.     Backup 17
  352.     Delay 2
  353.     STRING001 = Upper(Inkey())
  354.     If (STRING001 == Chr(13)) Goto LABEL010
  355.     Print "@POS:30@" + STRING005 + "■" + STRING004 + "■@X08■Press Enter■" + STRING005 + "■" + STRING004 + "■"
  356.     Backup 17
  357.     Delay 2
  358.     STRING001 = Upper(Inkey())
  359.     If (STRING001 == Chr(13)) Goto LABEL010
  360.     Print "@POS:30@" + STRING004 + "■@X08■■Press Enter■■" + STRING004 + "■"
  361.     Backup 17
  362.     Delay 2
  363.     Goto LABEL004
  364.     :LABEL005
  365.     Select Case (STRING002)
  366.         Case 1
  367.             STRING003 = "@X08"
  368.             STRING004 = "@X01"
  369.             STRING005 = "@X09"
  370.         Case 2
  371.             STRING003 = "@X08"
  372.             STRING004 = "@X02"
  373.             STRING005 = "@X0A"
  374.         Case 3
  375.             STRING003 = "@X08"
  376.             STRING004 = "@X03"
  377.             STRING005 = "@X0B"
  378.         Case 4
  379.             STRING003 = "@X08"
  380.             STRING004 = "@X04"
  381.             STRING005 = "@X0C"
  382.         Case 5
  383.             STRING003 = "@X08"
  384.             STRING004 = "@X05"
  385.             STRING005 = "@X0D"
  386.         Case 6
  387.             STRING003 = "@X08"
  388.             STRING004 = "@X06"
  389.             STRING005 = "@X0E"
  390.         Case "7"
  391.             STRING003 = "@X08"
  392.             STRING004 = "@X07"
  393.             STRING005 = "@X0F"
  394.     End Select
  395.     STRING001 = Upper(Inkey())
  396.     If (STRING001 == Chr(13)) Goto LABEL010
  397.     Print "@POS:30@" + STRING004 + "-" + STRING005 + "-@X0F- Press Enter -" + STRING005 + "-" + STRING004 + "-@X07"
  398.     Backup 19
  399.     Delay 2
  400.     STRING001 = Upper(Inkey())
  401.     If (STRING001 == Chr(13)) Goto LABEL010
  402.     Print "@POS:30@" + STRING004 + "\" + STRING005 + "\@X0F\ Press Enter /" + STRING005 + "/" + STRING004 + "/@X07"
  403.     Backup 19
  404.     Delay 2
  405.     STRING001 = Upper(Inkey())
  406.     If (STRING001 == Chr(13)) Goto LABEL010
  407.     Print "@POS:30@" + STRING004 + "|" + STRING005 + "|@X0F| Press Enter @X0F|" + STRING005 + "|" + STRING004 + "|@X07"
  408.     Backup 19
  409.     Delay 2
  410.     STRING001 = Upper(Inkey())
  411.     If (STRING001 == Chr(13)) Goto LABEL010
  412.     Print "@POS:30@" + STRING004 + "/" + STRING005 + "/@X0F/ Press Enter \" + STRING005 + "\" + STRING004 + "\@X07"
  413.     Backup 19
  414.     Delay 2
  415.     Goto LABEL005
  416.     :LABEL006
  417.     Select Case (STRING002)
  418.         Case 1
  419.             STRING003 = "@X08"
  420.             STRING004 = "@X01"
  421.             STRING005 = "@X09"
  422.         Case 2
  423.             STRING003 = "@X08"
  424.             STRING004 = "@X02"
  425.             STRING005 = "@X0A"
  426.         Case 3
  427.             STRING003 = "@X08"
  428.             STRING004 = "@X03"
  429.             STRING005 = "@X0B"
  430.         Case 4
  431.             STRING003 = "@X08"
  432.             STRING004 = "@X04"
  433.             STRING005 = "@X0C"
  434.         Case 5
  435.             STRING003 = "@X08"
  436.             STRING004 = "@X05"
  437.             STRING005 = "@X0D"
  438.         Case 6
  439.             STRING003 = "@X08"
  440.             STRING004 = "@X06"
  441.             STRING005 = "@X0E"
  442.         Case "7"
  443.             STRING003 = "@X08"
  444.             STRING004 = "@X07"
  445.             STRING005 = "@X0F"
  446.     End Select
  447.     STRING001 = Upper(Inkey())
  448.     If (STRING001 == Chr(13)) Goto LABEL010
  449.     Print "@POS:30@" + STRING005 + ">   " + STRING004 + "Press Enter   " + STRING005 + "<"
  450.     Backup 19
  451.     Delay 3
  452.     STRING001 = Upper(Inkey())
  453.     If (STRING001 == Chr(13)) Goto LABEL010
  454.     Print "@POS:30@ " + STRING005 + ">  " + STRING004 + "Press Enter  " + STRING005 + "< "
  455.     Backup 19
  456.     Delay 3
  457.     STRING001 = Upper(Inkey())
  458.     If (STRING001 == Chr(13)) Goto LABEL010
  459.     Print "@POS:30@  " + STRING005 + "> " + STRING004 + "Press Enter " + STRING005 + "<  "
  460.     Backup 19
  461.     Delay 3
  462.     STRING001 = Upper(Inkey())
  463.     If (STRING001 == Chr(13)) Goto LABEL010
  464.     Print "@POS:30@   " + STRING005 + ">Press Enter<   "
  465.     Backup 19
  466.     Delay 3
  467.     Goto LABEL006
  468.     :LABEL007
  469.     Select Case (STRING002)
  470.         Case 1
  471.             STRING003 = "@X08"
  472.             STRING004 = "@X01"
  473.             STRING005 = "@X09"
  474.         Case 2
  475.             STRING003 = "@X08"
  476.             STRING004 = "@X02"
  477.             STRING005 = "@X0A"
  478.         Case 3
  479.             STRING003 = "@X08"
  480.             STRING004 = "@X03"
  481.             STRING005 = "@X0B"
  482.         Case 4
  483.             STRING003 = "@X08"
  484.             STRING004 = "@X04"
  485.             STRING005 = "@X0C"
  486.         Case 5
  487.             STRING003 = "@X08"
  488.             STRING004 = "@X05"
  489.             STRING005 = "@X0D"
  490.         Case 6
  491.             STRING003 = "@X08"
  492.             STRING004 = "@X06"
  493.             STRING005 = "@X0E"
  494.         Case "7"
  495.             STRING003 = "@X08"
  496.             STRING004 = "@X07"
  497.             STRING005 = "@X0F"
  498.     End Select
  499.     STRING001 = Upper(Inkey())
  500.     If (STRING001 == Chr(13)) Goto LABEL010
  501.     Print "@POS:31@" + STRING005 + "■ " + STRING004 + "H@X08iT EnTeR " + STRING005 + "■"
  502.     Backup 13
  503.     Delay 2
  504.     STRING001 = Upper(Inkey())
  505.     If (STRING001 == Chr(13)) Goto LABEL010
  506.     Print "@POS:31@" + STRING005 + "■ " + STRING005 + "H" + STRING004 + "i@X08T EnTeR " + STRING005 + "■"
  507.     Backup 13
  508.     Delay 2
  509.     STRING001 = Upper(Inkey())
  510.     If (STRING001 == Chr(13)) Goto LABEL010
  511.     Print "@POS:31@" + STRING005 + "■ @X0FH" + STRING005 + "i" + STRING004 + "T @X08EnTeR " + STRING005 + "■"
  512.     Backup 13
  513.     Delay 2
  514.     STRING001 = Upper(Inkey())
  515.     If (STRING001 == Chr(13)) Goto LABEL010
  516.     Print "@POS:31@" + STRING005 + "■ " + STRING005 + "H@X0Fi" + STRING005 + "T @X08EnTeR " + STRING005 + "■"
  517.     Backup 13
  518.     Delay 2
  519.     STRING001 = Upper(Inkey())
  520.     If (STRING001 == Chr(13)) Goto LABEL010
  521.     Print "@POS:31@" + STRING005 + "■ " + STRING004 + "H" + STRING005 + "i@X0FT " + STRING004 + "E@X08nTeR " + STRING005 + "■"
  522.     Backup 13
  523.     Delay 2
  524.     STRING001 = Upper(Inkey())
  525.     If (STRING001 == Chr(13)) Goto LABEL010
  526.     Print "@POS:31@" + STRING005 + "■ @X08H" + STRING004 + "i" + STRING005 + "T " + STRING005 + "E" + STRING004 + "n@X08TeR " + STRING005 + "■"
  527.     Backup 13
  528.     Delay 2
  529.     STRING001 = Upper(Inkey())
  530.     If (STRING001 == Chr(13)) Goto LABEL010
  531.     Print "@POS:31@" + STRING005 + "■ @X08Hi" + STRING004 + "T @X0FE" + STRING005 + "n" + STRING004 + "T@X08eR " + STRING005 + "■"
  532.     Backup 13
  533.     Delay 2
  534.     STRING001 = Upper(Inkey())
  535.     If (STRING001 == Chr(13)) Goto LABEL010
  536.     Print "@POS:31@" + STRING005 + "■ @X08HiT " + STRING005 + "E@X0Fn" + STRING005 + "T" + STRING004 + "e@X08R " + STRING005 + "■"
  537.     Backup 13
  538.     Delay 2
  539.     STRING001 = Upper(Inkey())
  540.     If (STRING001 == Chr(13)) Goto LABEL010
  541.     Print "@POS:31@" + STRING005 + "■ @X08HiT " + STRING004 + "E" + STRING005 + "n@X0FT" + STRING005 + "e" + STRING004 + "R " + STRING005 + "■"
  542.     Backup 13
  543.     Delay 2
  544.     STRING001 = Upper(Inkey())
  545.     If (STRING001 == Chr(13)) Goto LABEL010
  546.     Print "@POS:31@" + STRING005 + "■ @X08HiT E" + STRING004 + "n" + STRING005 + "T@X0Fe" + STRING005 + "R " + STRING005 + "■"
  547.     Backup 13
  548.     Delay 2
  549.     STRING001 = Upper(Inkey())
  550.     If (STRING001 == Chr(13)) Goto LABEL010
  551.     Print "@POS:31@" + STRING005 + "■ @X08HiT En" + STRING004 + "T" + STRING005 + "e@X0FR " + STRING005 + "■"
  552.     Backup 13
  553.     Delay 2
  554.     STRING001 = Upper(Inkey())
  555.     If (STRING001 == Chr(13)) Goto LABEL010
  556.     Print "@POS:31@" + STRING005 + "■ @X08HiT EnT" + STRING004 + "e" + STRING005 + "R " + STRING005 + "■"
  557.     Backup 13
  558.     Delay 2
  559.     STRING001 = Upper(Inkey())
  560.     If (STRING001 == Chr(13)) Goto LABEL010
  561.     Print "@POS:31@" + STRING005 + "■ @X08HiT EnTe" + STRING004 + "R " + STRING005 + "■"
  562.     Backup 13
  563.     Delay 2
  564.     STRING001 = Upper(Inkey())
  565.     If (STRING001 == Chr(13)) Goto LABEL010
  566.     Print "@POS:31@" + STRING005 + "■ @X08HiT EnT" + STRING004 + "e" + STRING005 + "R " + STRING005 + "■"
  567.     Backup 13
  568.     Delay 2
  569.     STRING001 = Upper(Inkey())
  570.     If (STRING001 == Chr(13)) Goto LABEL010
  571.     Print "@POS:31@" + STRING005 + "■ @X08HiT En" + STRING004 + "T" + STRING005 + "e@X0FR " + STRING005 + "■"
  572.     Backup 13
  573.     Delay 2
  574.     STRING001 = Upper(Inkey())
  575.     If (STRING001 == Chr(13)) Goto LABEL010
  576.     Print "@POS:31@" + STRING005 + "■ @X08HiT E" + STRING004 + "n" + STRING005 + "T@X0Fe" + STRING005 + "R " + STRING005 + "■"
  577.     Backup 13
  578.     Delay 2
  579.     STRING001 = Upper(Inkey())
  580.     If (STRING001 == Chr(13)) Goto LABEL010
  581.     Print "@POS:31@" + STRING005 + "■ @X08HiT " + STRING004 + "E" + STRING005 + "n@X0FT" + STRING005 + "e" + STRING004 + "R " + STRING005 + "■"
  582.     Backup 13
  583.     Delay 2
  584.     STRING001 = Upper(Inkey())
  585.     If (STRING001 == Chr(13)) Goto LABEL010
  586.     Print "@POS:31@" + STRING005 + "■ @X08HiT " + STRING005 + "E@X0Fn" + STRING005 + "T" + STRING004 + "e@X08R " + STRING005 + "■"
  587.     Backup 13
  588.     Delay 2
  589.     STRING001 = Upper(Inkey())
  590.     If (STRING001 == Chr(13)) Goto LABEL010
  591.     Print "@POS:31@" + STRING005 + "■ @X08Hi" + STRING004 + "T @X0FE" + STRING005 + "n" + STRING004 + "T@X08eR " + STRING005 + "■"
  592.     Backup 13
  593.     Delay 2
  594.     STRING001 = Upper(Inkey())
  595.     If (STRING001 == Chr(13)) Goto LABEL010
  596.     Print "@POS:31@" + STRING005 + "■ @X08H" + STRING004 + "i" + STRING005 + "T " + STRING005 + "E" + STRING004 + "n@X08TeR " + STRING005 + "■"
  597.     Backup 13
  598.     Delay 2
  599.     STRING001 = Upper(Inkey())
  600.     If (STRING001 == Chr(13)) Goto LABEL010
  601.     Print "@POS:31@" + STRING005 + "■ " + STRING004 + "H" + STRING005 + "i@X0FT " + STRING004 + "E@X08nTeR " + STRING005 + "■"
  602.     Backup 13
  603.     Delay 2
  604.     STRING001 = Upper(Inkey())
  605.     If (STRING001 == Chr(13)) Goto LABEL010
  606.     Print "@POS:31@" + STRING005 + "■ " + STRING005 + "H@X0Fi" + STRING005 + "T @X08EnTeR " + STRING005 + "■"
  607.     Backup 13
  608.     Delay 2
  609.     STRING001 = Upper(Inkey())
  610.     If (STRING001 == Chr(13)) Goto LABEL010
  611.     Print "@POS:31@" + STRING005 + "■ @X0FH" + STRING005 + "i" + STRING004 + "T @X08EnTeR " + STRING005 + "■"
  612.     Backup 13
  613.     Delay 2
  614.     STRING001 = Upper(Inkey())
  615.     If (STRING001 == Chr(13)) Goto LABEL010
  616.     Print "@POS:31@" + STRING005 + "■ " + STRING005 + "H" + STRING004 + "i@X08T EnTeR " + STRING005 + "■"
  617.     Backup 13
  618.     Delay 2
  619.     Goto LABEL007
  620.     :LABEL008
  621.     Select Case (STRING002)
  622.         Case 1
  623.             STRING003 = "@X01"
  624.             STRING004 = "@X09"
  625.             STRING005 = "@X0B"
  626.         Case 2
  627.             STRING003 = "@X02"
  628.             STRING004 = "@X0A"
  629.             STRING005 = "@X0F"
  630.         Case 3
  631.             STRING003 = "@X03"
  632.             STRING004 = "@X0B"
  633.             STRING005 = "@X0F"
  634.         Case 4
  635.             STRING003 = "@X04"
  636.             STRING004 = "@X0C"
  637.             STRING005 = "@X0F"
  638.         Case 5
  639.             STRING003 = "@X05"
  640.             STRING004 = "@X0D"
  641.             STRING005 = "@X0F"
  642.         Case 6
  643.             STRING003 = "@X06"
  644.             STRING004 = "@X0E"
  645.             STRING005 = "@X0F"
  646.         Case "7"
  647.             STRING003 = "@X08"
  648.             STRING004 = "@X07"
  649.             STRING005 = "@X0F"
  650.     End Select
  651.     STRING001 = Upper(Inkey())
  652.     If (STRING001 == Chr(13)) Goto LABEL010
  653.     Print "@POS:31@               "
  654.     Backup 15
  655.     Delay 1
  656.     STRING001 = Upper(Inkey())
  657.     If (STRING001 == Chr(13)) Goto LABEL010
  658.     Print "@POS:31@" + STRING003 + "S              "
  659.     Backup 15
  660.     Delay 1
  661.     STRING001 = Upper(Inkey())
  662.     If (STRING001 == Chr(13)) Goto LABEL010
  663.     Print "@POS:31@" + STRING004 + "S" + STRING003 + "N             "
  664.     Backup 15
  665.     Delay 1
  666.     STRING001 = Upper(Inkey())
  667.     If (STRING001 == Chr(13)) Goto LABEL010
  668.     Print "@POS:31@" + STRING005 + "S" + STRING004 + "N" + STRING003 + "a            "
  669.     Backup 15
  670.     Delay 1
  671.     STRING001 = Upper(Inkey())
  672.     If (STRING001 == Chr(13)) Goto LABEL010
  673.     Print "@POS:31@" + STRING004 + "S" + STRING005 + "N" + STRING004 + "a" + STRING003 + "P           "
  674.     Backup 15
  675.     Delay 1
  676.     STRING001 = Upper(Inkey())
  677.     If (STRING001 == Chr(13)) Goto LABEL010
  678.     Print "@POS:31@" + STRING003 + "S" + STRING004 + "N" + STRING005 + "a" + STRING004 + "P           "
  679.     Backup 15
  680.     Delay 1
  681.     STRING001 = Upper(Inkey())
  682.     If (STRING001 == Chr(13)) Goto LABEL010
  683.     Print "@POS:31@ " + STRING003 + "N" + STRING004 + "a" + STRING005 + "P " + STRING003 + "K         "
  684.     Backup 15
  685.     Delay 1
  686.     STRING001 = Upper(Inkey())
  687.     If (STRING001 == Chr(13)) Goto LABEL010
  688.     Print "@POS:31@  " + STRING003 + "a" + STRING004 + "P K" + STRING003 + "i        "
  689.     Backup 15
  690.     Delay 1
  691.     STRING001 = Upper(Inkey())
  692.     If (STRING001 == Chr(13)) Goto LABEL010
  693.     Print "@POS:31@   " + STRING003 + "P " + STRING005 + "K" + STRING004 + "i" + STRING003 + "C       "
  694.     Backup 15
  695.     Delay 1
  696.     STRING001 = Upper(Inkey())
  697.     If (STRING001 == Chr(13)) Goto LABEL010
  698.     Print "@POS:31@     " + STRING004 + "K" + STRING005 + "i" + STRING004 + "C" + STRING003 + "k      "
  699.     Backup 15
  700.     Delay 1
  701.     STRING001 = Upper(Inkey())
  702.     If (STRING001 == Chr(13)) Goto LABEL010
  703.     Print "@POS:31@     " + STRING003 + "K" + STRING004 + "i" + STRING005 + "C" + STRING004 + "k      "
  704.     Backup 15
  705.     Delay 1
  706.     STRING001 = Upper(Inkey())
  707.     If (STRING001 == Chr(13)) Goto LABEL010
  708.     Print "@POS:31@      " + STRING003 + "i" + STRING004 + "C" + STRING005 + "k " + STRING003 + "E    "
  709.     Backup 15
  710.     Delay 1
  711.     STRING001 = Upper(Inkey())
  712.     If (STRING001 == Chr(13)) Goto LABEL010
  713.     Print "@POS:31@       " + STRING003 + "C" + STRING004 + "k E" + STRING003 + "n   "
  714.     Backup 15
  715.     Delay 1
  716.     STRING001 = Upper(Inkey())
  717.     If (STRING001 == Chr(13)) Goto LABEL010
  718.     Print "@POS:31@        " + STRING003 + "k " + STRING005 + "E" + STRING004 + "n" + STRING003 + "T  "
  719.     Backup 15
  720.     Delay 1
  721.     STRING001 = Upper(Inkey())
  722.     If (STRING001 == Chr(13)) Goto LABEL010
  723.     Print "@POS:31@          " + STRING003 + "E" + STRING004 + "n" + STRING005 + "T" + STRING004 + "e" + STRING003 + "R"
  724.     Backup 15
  725.     Delay 1
  726.     STRING001 = Upper(Inkey())
  727.     If (STRING001 == Chr(13)) Goto LABEL010
  728.     Print "@POS:31@           " + STRING003 + "n" + STRING004 + "T" + STRING005 + "e" + STRING004 + "R"
  729.     Backup 15
  730.     Delay 1
  731.     STRING001 = Upper(Inkey())
  732.     If (STRING001 == Chr(13)) Goto LABEL010
  733.     Print "@POS:31@            " + STRING003 + "T" + STRING004 + "e" + STRING005 + "R"
  734.     Backup 15
  735.     Delay 1
  736.     STRING001 = Upper(Inkey())
  737.     If (STRING001 == Chr(13)) Goto LABEL010
  738.     Print "@POS:31@             " + STRING003 + "e" + STRING004 + "R"
  739.     Backup 15
  740.     Delay 1
  741.     STRING001 = Upper(Inkey())
  742.     If (STRING001 == Chr(13)) Goto LABEL010
  743.     Print "@POS:31@              " + STRING003 + "R"
  744.     Backup 15
  745.     Delay 1
  746.     Goto LABEL008
  747.     :LABEL009
  748.     Select Case (STRING002)
  749.         Case 1
  750.             STRING003 = "@X01"
  751.             STRING004 = "@X09"
  752.         Case 2
  753.             STRING003 = "@X02"
  754.             STRING004 = "@X0A"
  755.         Case 3
  756.             STRING003 = "@X03"
  757.             STRING004 = "@X0B"
  758.         Case 4
  759.             STRING003 = "@X04"
  760.             STRING004 = "@X0C"
  761.         Case 5
  762.             STRING003 = "@X05"
  763.             STRING004 = "@X0D"
  764.         Case 6
  765.             STRING003 = "@X06"
  766.             STRING004 = "@X0E"
  767.         Case "7"
  768.             STRING003 = "@X08"
  769.             STRING004 = "@X07"
  770.     End Select
  771.     STRING001 = Upper(Inkey())
  772.     If (STRING001 == Chr(13)) Goto LABEL010
  773.     Print "@POS:24@@X0A.@X02PRESS@X0A.  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X0FENTER  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X0A.@X02PRESS@X0A."
  774.     Backup 34
  775.     Delay 1
  776.     STRING001 = Upper(Inkey())
  777.     If (STRING001 == Chr(13)) Goto LABEL010
  778.     Print "@POS:24@@X0A..@X02PRESS  " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X07E@X0FNTE@X07@X07R  " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X02PRESS@X0A.."
  779.     Backup 34
  780.     Delay 1
  781.     STRING001 = Upper(Inkey())
  782.     If (STRING001 == Chr(13)) Goto LABEL010
  783.     Print "@POS:24@@X02S@X0A..@X02PRES  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X08E@X0FNTE@X08R  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X02RESS@X0A..@X02P"
  784.     Backup 34
  785.     Delay 1
  786.     STRING001 = Upper(Inkey())
  787.     If (STRING001 == Chr(13)) Goto LABEL010
  788.     Print "@POS:24@@X02SS@X0A..@X02PRE  " + STRING003 + "<" + STRING004 + "\" + STRING003 + "> @X08E @X0FNTE @X08R <" + STRING004 + "/" + STRING003 + ">  @X02ESS@X0A..@X02PR"
  789.     Backup 34
  790.     Delay 1
  791.     STRING001 = Upper(Inkey())
  792.     If (STRING001 == Chr(13)) Goto LABEL010
  793.     Print "@POS:24@ESS@X0A..@X02PR  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">@X08E  @X0FNTE  @X08R" + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X02SS@X0A..@X02PRE"
  794.     Backup 34
  795.     Delay 1
  796.     STRING001 = Upper(Inkey())
  797.     If (STRING001 == Chr(13)) Goto LABEL010
  798.     Print "@POS:24@RESS@X0A..@X02P  " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">   @X0FNTE@X07   " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X02S@X0A..@X02PRES"
  799.     Backup 34
  800.     Delay 1
  801.     STRING001 = Upper(Inkey())
  802.     If (STRING001 == Chr(13)) Goto LABEL010
  803.     Print "@POS:24@PRESS@X0A..  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">   @X07N@X0FT@X07E   " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X02@X0A..@X02PRESS"
  804.     Backup 34
  805.     Delay 1
  806.     STRING001 = Upper(Inkey())
  807.     If (STRING001 == Chr(13)) Goto LABEL010
  808.     Print "@POS:24@@X0A.@X02PRESS@X0A.  " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">   @X08N@X0FT@X08E   " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X0A.@X02PRESS@X0A."
  809.     Backup 34
  810.     Delay 1
  811.     STRING001 = Upper(Inkey())
  812.     If (STRING001 == Chr(13)) Goto LABEL010
  813.     Print "@POS:24@@X02@X0A..@X02PRESS  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X08N @X0FT @X08E  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X02PRESS@X0A.."
  814.     Backup 34
  815.     Delay 1
  816.     STRING001 = Upper(Inkey())
  817.     If (STRING001 == Chr(13)) Goto LABEL010
  818.     Print "@POS:24@@X02S@X0A..@X02PRES  " + STRING003 + "<" + STRING004 + "/" + STRING003 + "> @X08N  @X0FT  @X08E " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X02ESS@X0A..@X02PR"
  819.     Backup 34
  820.     Delay 1
  821.     STRING001 = Upper(Inkey())
  822.     If (STRING001 == Chr(13)) Goto LABEL010
  823.     Print "@POS:24@@X02SS@X0A..@X02PRE  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">@X08N   @X0FT   @X08E" + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X02SS@X0A..@X02PRE"
  824.     Backup 34
  825.     Delay 1
  826.     STRING001 = Upper(Inkey())
  827.     If (STRING001 == Chr(13)) Goto LABEL010
  828.     Print "@POS:24@@X02ESS@X0A..@X02PR  " + STRING003 + "<" + STRING004 + "\>    @X0FT    " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X02S@X0A..@X02PRES"
  829.     Backup 34
  830.     Delay 1
  831.     STRING001 = Upper(Inkey())
  832.     If (STRING001 == Chr(13)) Goto LABEL010
  833.     Print "@POS:24@@X02RESS@X0A..@X02P  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">    @X07T    " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X0A..@X02PRESS"
  834.     Backup 34
  835.     Delay 1
  836.     STRING001 = Upper(Inkey())
  837.     If (STRING001 == Chr(13)) Goto LABEL010
  838.     Print "@POS:24@@X02PRESS@X0A..  " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">    @X08T    " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X0A.@X02PRESS@X0A."
  839.     Backup 34
  840.     Delay 1
  841.     STRING001 = Upper(Inkey())
  842.     If (STRING001 == Chr(13)) Goto LABEL010
  843.     Print "@POS:24@@X0A.@X02PRESS@X0A.  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">         <" + STRING004 + "-" + STRING003 + ">  @X02PRESS@X0A.."
  844.     Backup 34
  845.     Delay 1
  846.     STRING001 = Upper(Inkey())
  847.     If (STRING001 == Chr(13)) Goto LABEL010
  848.     Print "@POS:24@@X02PRESS@X0A..  " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">    @X08T    " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X0A.@X02PRESS@X0A."
  849.     Backup 34
  850.     Delay 1
  851.     STRING001 = Upper(Inkey())
  852.     If (STRING001 == Chr(13)) Goto LABEL010
  853.     Print "@POS:24@@X02RESS@X0A..@X02P  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">    @X07T    <" + STRING004 + "l" + STRING003 + ">  @X0A..@X02PRESS"
  854.     Backup 34
  855.     Delay 1
  856.     STRING001 = Upper(Inkey())
  857.     If (STRING001 == Chr(13)) Goto LABEL010
  858.     Print "@POS:24@@X02ESS@X0A..@X02PR  " + STRING003 + "<" + STRING004 + "/>    @X0FT    " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X02S@X0A..@X02PRES"
  859.     Backup 34
  860.     Delay 1
  861.     STRING001 = Upper(Inkey())
  862.     If (STRING001 == Chr(13)) Goto LABEL010
  863.     Print "@POS:24@SS@X0A..@X02PRE  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">@X08N   @X0FT   @X08E" + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X02SS@X0A..@X02PRE"
  864.     Backup 34
  865.     Delay 1
  866.     STRING001 = Upper(Inkey())
  867.     If (STRING001 == Chr(13)) Goto LABEL010
  868.     Print "@POS:24@@X02S@X0A..@X02PRES  " + STRING003 + "<" + STRING004 + "\" + STRING003 + "> @X08N  @X0FT  @X08E " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X02ESS@X0A..@X02PR"
  869.     Backup 34
  870.     Delay 1
  871.     STRING001 = Upper(Inkey())
  872.     If (STRING001 == Chr(13)) Goto LABEL010
  873.     Print "@POS:24@@X02@X0A..@X02PRESS  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X08N @X0FT @X08E  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X02PRESS@X0A.."
  874.     Backup 34
  875.     Delay 1
  876.     STRING001 = Upper(Inkey())
  877.     If (STRING001 == Chr(13)) Goto LABEL010
  878.     Print "@POS:24@@X0A.@X02PRESS@X0A.  " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">   @X08N@X0FT@X08E   " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X0A.@X02PRESS@X0A."
  879.     Backup 34
  880.     Delay 1
  881.     STRING001 = Upper(Inkey())
  882.     If (STRING001 == Chr(13)) Goto LABEL010
  883.     Print "@POS:24@@X02PRESS@X0A..  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">   @X07N@X0FT@X07E   " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X02@X0A..@X02PRESS "
  884.     Backup 34
  885.     Delay 1
  886.     STRING001 = Upper(Inkey())
  887.     If (STRING001 == Chr(13)) Goto LABEL010
  888.     Print "@POS:24@@X02RESS@X0A..@X02P  " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">   @X0FNTE@X07   " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X02S@X0A..@X02PRES"
  889.     Backup 34
  890.     Delay 1
  891.     STRING001 = Upper(Inkey())
  892.     If (STRING001 == Chr(13)) Goto LABEL010
  893.     Print "@POS:24@@X02ESS@X0A..@X02PR  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">@X08E  @X0FNTE  @X08R" + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X02SS@X0A..@X02PRE"
  894.     Backup 34
  895.     Delay 1
  896.     STRING001 = Upper(Inkey())
  897.     If (STRING001 == Chr(13)) Goto LABEL010
  898.     Print "@POS:24@@X02SS@X0A..@X02PRE  " + STRING003 + "<" + STRING004 + "/" + STRING003 + "> @X08E @X0FNTE @X08R <" + STRING004 + "\" + STRING003 + ">  @X02ESS@X0A..@X02PR"
  899.     Backup 34
  900.     Delay 1
  901.     STRING001 = Upper(Inkey())
  902.     If (STRING001 == Chr(13)) Goto LABEL010
  903.     Print "@POS:24@@X02S@X0A..@X02PRES  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X08E@X0FNTE@X08R  " + STRING003 + "<" + STRING004 + "-" + STRING003 + ">  @X02RESS@X0A..@X02P"
  904.     Backup 34
  905.     Delay 1
  906.     STRING001 = Upper(Inkey())
  907.     If (STRING001 == Chr(13)) Goto LABEL010
  908.     Print "@POS:24@@X0A..@X02PRESS  " + STRING003 + "<" + STRING004 + "\" + STRING003 + ">  @X07E@X0FNTE@X07@X07R  " + STRING003 + "<" + STRING004 + "/" + STRING003 + ">  @X02PRESS@X0A.."
  909.     Backup 34
  910.     Delay 1
  911.     STRING001 = Upper(Inkey())
  912.     If (STRING001 == Chr(13)) Goto LABEL010
  913.     Print "@POS:24@@X0A.@X02PRESS@X0A.  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X0FENTER  " + STRING003 + "<" + STRING004 + "l" + STRING003 + ">  @X0A.@X02PRESS@X0A."
  914.     Backup 34
  915.     Delay 1
  916.     Goto LABEL009
  917.     :LABEL010
  918.     KbdStuff "^K^K"
  919.     End
  920.  
  921. ;------------------------------------------------------------------------------
  922. ;
  923. ; Usage report (before postprocessing)
  924. ;
  925. ; ■ Statements used :
  926. ;
  927. ;    1       End
  928. ;    257     Goto 
  929. ;    303     Let 
  930. ;    116     Print 
  931. ;    193     If 
  932. ;    1       FOpen 
  933. ;    1       FClose 
  934. ;    2       FGet 
  935. ;    116     Delay 
  936. ;    1       KbdStuff 
  937. ;    119     Backup 
  938. ;
  939. ;
  940. ; ■ Functions used :
  941. ;
  942. ;    1093    +
  943. ;    192     ==
  944. ;    64      !
  945. ;    120     Upper()
  946. ;    120     Chr()
  947. ;    120     Inkey()
  948. ;    2       PPEPath()
  949. ;    1       Exist()
  950. ;
  951. ;------------------------------------------------------------------------------
  952. ;
  953. ; Analysis flags : No flag
  954. ;
  955. ;------------------------------------------------------------------------------
  956. ;
  957. ; Postprocessing report
  958. ;
  959. ;    0       For/Next
  960. ;    0       While/EndWhile
  961. ;    1       If/Then or If/Then/Else
  962. ;    9       Select Case
  963. ;
  964. ;------------------------------------------------------------------------------
  965. ;                 AEGiS Corp - Break the routines, code against the machines!
  966. ;------------------------------------------------------------------------------
  967.